home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / shared.dir / 03012_Script_START MOVIE < prev    next >
Text File  |  1996-06-21  |  573b  |  18 lines
  1. -- ---------------------------------------------------------------
  2. -- Handler startMovie
  3.  
  4. on startMovie
  5.   setAuxiliarySearch
  6. end
  7.  
  8. -- ---------------------------------------------------------------
  9. -- Handler setAuxiliarySearch sets the searchpath for auxiliary files.
  10.  
  11. on setAuxiliarySearch
  12.   put the movie into movieName
  13.   put length(movieName) into movieNameLength
  14.   put char 1 to (movieNameLength - 4) of movieName into folderName
  15.   put "A" after folderName
  16.   set the searchPath = [the pathName & folderName]
  17.   -- set the searchCurrentFolder = FALSE
  18. end